#################
### ct_data.R ###
#################

# bundesliga_12_13 <- read.csv('data/bundesliga_12_13.csv',
#                              colClasses = 'character',
#                              check.names = FALSE)
# row.names(bundesliga_12_13) <- bundesliga_12_13[,1]
# bundesliga_12_13[,1] <- NULL
# save(bundesliga_12_13, file = 'crosstab/data/bundesliga_12_13.rda')

# primera_division_12_13 <- read.csv('data/primera_division_12_13.csv',
#                                    colClasses = 'character',
#                                    check.names = FALSE)
# row.names(primera_division_12_13) <- primera_division_12_13[,1]
# primera_division_12_13[,1] <- NULL
# save(primera_division_12_13, file = 'crosstab/data/primera_division_12_13.rda')

# segunda_division_12_13 <- read.csv('data/segunda_division_12_13.csv',
#                                    colClasses = 'character',
#                                    check.names = FALSE)
# row.names(segunda_division_12_13) <- segunda_division_12_13[,1]
# segunda_division_12_13[,1] <- NULL
# save(segunda_division_12_13, file = 'crosstab/data/segunda_division_12_13.rda')

load('crosstab/data/bundesliga_12_13.rda')
load('crosstab/data/primera_division_12_13.rda')
load('crosstab/data/segunda_division_12_13.rda')
